﻿Public Class xtf_LISTADOseguimiento_

    Public Overrides Sub IniciarLista()
        If str_seguimientoConexion <> "" Then
            Dim obj_Conexion As New cls_Conexion(str_seguimientoConexion, True)
            If Not obj_Conexion.Conectar Then
                Dim server As String = Replace(Split(str_seguimientoConexion, ";")(0), "Data Source=", "")
                Dim base As String = Replace(Split(str_seguimientoConexion, ";")(1), "Initial Catalog=", "")
                ErrManagerShow("000016", Me, "Servidor: " & server & " Base: " & base)
                Me.Close()
            Else
                obj_Conexion.Desconectar()
            End If
        End If
        Try
            gdc_general.BeginUpdate()
            gdc_general.DataSource = dtt_DataTable
            'ulg_Lista.DisplayLayout.GroupByBox.Style = Infragistics.Win.UltraWinGrid.GroupByBoxStyle.Full

            'Creacion y carga de Cuentas
            dtt_DataTable.Columns.Add("Identificador (ID)")
            dtt_DataTable.Columns.Add("Estado")
            dtt_DataTable.Columns.Add("Importancia")
            dtt_DataTable.Columns.Add("Referencia")
            dtt_DataTable.Columns.Add("Orden")
            dtt_DataTable.Columns.Add("Fecha")
            dtt_DataTable.Columns.Add("Hora")
            dtt_DataTable.Columns.Add("Cliente")

            gdv_general.PopulateColumns(dtt_DataTable)

            Dim obj_seguimiento__ As New cls_seguimiento_
            If obj_seguimiento__.CargarTodos(ObtenerRegistroEstado) Then
                For Each seguimiento_ As cls_seguimiento_ In obj_seguimiento__.Items
                    AgregarItem(seguimiento_)
                Next
            End If
            'ulg_Lista.DataBind()

            FiltrarColumnas()
            gdc_general.EndUpdate()


        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Function AgregarItem(ByRef seguimiento_ As cls_seguimiento_) As DataRow
        Dim Row As DataRow = dtt_DataTable.NewRow
        Row("Identificador (ID)") = seguimiento_.idseguimiento
        Row("Estado") = EnumDescription(seguimiento_.estado)
        Row("Importancia") = EnumDescription(seguimiento_.importancia)
        Row("Referencia") = seguimiento_.referencia
        Row("Orden") = seguimiento_.orden
        Row("Fecha") = seguimiento_.fecha
        Row("Hora") = seguimiento_.hora
        Row("Cliente") = seguimiento_.clienteSTR
        dtt_DataTable.Rows.Add(Row)
        'ulg_Lista.Rows(ulg_Lista.Rows.Count - 1).Height = 19
        Return Row
    End Function

    Public Sub ModificarItem(ByRef seguimiento_ As cls_seguimiento_, ByRef ulg_row As DataRow)
        ulg_row("Identificador (ID)") = seguimiento_.idseguimiento
        ulg_row("Estado") = EnumDescription(seguimiento_.estado)
        ulg_row("Importancia") = EnumDescription(seguimiento_.importancia)
        ulg_row("Referencia") = seguimiento_.referencia
        ulg_row("Orden") = seguimiento_.orden
        ulg_row("Fecha") = seguimiento_.fecha
        ulg_row("Hora") = seguimiento_.hora
        ulg_row("Cliente") = seguimiento_.clienteSTR

    End Sub

    Public Sub New()

        Me.Cursor = Cursors.WaitCursor
        InitializeComponent()
        PERMISONuevo = "004014002"
        PERMISOModificar = "004014003"
        PERMISOEliminar = "004014004"
        PERMISOImprimir = "004014005"
        Me.Text = lbl_modulo.Text : lbl_modulodescripcion.Text = "Listado de " & lbl_modulo.Text & "."
        IniciarLista()
        Me.Cursor = Cursors.Default

    End Sub

    Private Sub xtf_LISTADOseguimiento__Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        If str_seguimientoConexion <> "" Then
            Dim statusServer As New DevExpress.XtraBars.BarStaticItem
            Dim statusBase As New DevExpress.XtraBars.BarStaticItem
            Dim server As String = Replace(Split(str_seguimientoConexion, ";")(0), "Data Source=", "")
            Dim base As String = Replace(Split(str_seguimientoConexion, ";")(1), "Initial Catalog=", "")
            statusServer.Caption = "Servidor: " & server
            statusBase.Caption = "Base: " & base
            Bar3.ItemLinks.Insert(Bar3.ItemLinks.RecentLinkCount, statusServer)
            Bar3.ItemLinks.Insert(Bar3.ItemLinks.RecentLinkCount, statusBase)
        End If
    End Sub
End Class
